home *** CD-ROM | disk | FTP | other *** search
/ World of Video / World of Video.iso / rexx / magiccx / pasrevision.rexx < prev    next >
OS/2 REXX Batch file  |  1995-02-13  |  853b  |  38 lines

  1. /*
  2.     $VER: PASRevision.rexx 1.0 (12.8.94)
  3.  
  4.     Revises an Pascal/Modula source code
  5.     The default Port of MagicCX is assumed to be MCX.
  6.     This script was written for Shell usage.
  7.  
  8.     Written by :     Kai Iske
  9.              Brucknerstrasse 18
  10.              63452 Hanau
  11.              GERMANY
  12.              Tel.: +49-(0)6181-850181
  13.  
  14.     THIS SCRIPT IS PUBLIC DOMAIN
  15. */
  16.  
  17. /*
  18.    Standard defines for INITIALVER INITIALREV INSERTBEFORE AND INSERTAFTER
  19.    (Please add complete paths for the files!)
  20. */
  21.  
  22. INITVER        = 1
  23. INITREV        = 0
  24. INSBEFORE    = PASInsertBeforeHeader
  25. INSAFTER    = PASInsertAfterHeader
  26.  
  27. QUOTE    = '22'X
  28.  
  29. OPTIONS RESULTS
  30. ADDRESS 'MCX' REVISE 'FILE='QUOTE''Arg(1)''QUOTE 'MODE=PAS' 'INITIALVER='INITVER 'INITIALREV='INITREV 'INSERTBEFORE='INSBEFORE 'INSERTAFTER='INSAFTER
  31. RevDone = RESULT
  32. IF RevDone = 'TRUE' THEN
  33.     say 'No errors occured... Sourced revised.'
  34. ELSE
  35.     say 'Error occured during revision...'
  36.  
  37. EXIT
  38.